home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
boostrs.arc
/
CURSOR.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1980-01-01
|
477b
|
28 lines
{ -------------------
CURSOROFF procedure
------------------- }
Procedure CursorOff;
begin
with regs do
begin
cx := $2000;
ax := $0100;
intr($10,regs);
end;
end;
{ -------------------
CURSORON procedure
------------------- }
Procedure CursorOn;
begin
with regs do
begin
if VideoStatus = 7 then
cx := $0C0D
else
cx := $0607;
ax := $0100;
intr($10,regs);
end;
end;